home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 18 / CU Amiga Magazine's Super CD-ROM 18 (1997)(EMAP Images)(GB)[!][issue 1998-01].iso / CUCD / Programming / AmigaE / Src / Tools / AmigaLib / time.e < prev   
Text File  |  1995-03-30  |  568b  |  25 lines
  1. OPT MODULE
  2.  
  3. MODULE 'amigalib/io',
  4.        'amigalib/ports',
  5.        'devices/timer',
  6.        'exec/io'
  7.  
  8. EXPORT PROC timeDelay(unit, seconds, micros)
  9.   DEF port, tr:PTR TO timerequest, error=TRUE
  10.   IF port:=createPort(NIL, 0)
  11.     IF tr:=createExtIO(port, SIZEOF timerequest)
  12.       IF OpenDevice('timer.device', unit, tr, 0)=0
  13.         tr.time.secs:=seconds
  14.         tr.time.micro:=micros
  15.         tr.io.command:=TR_ADDREQUEST
  16.         DoIO(tr)
  17.         CloseDevice(tr)
  18.         error:=FALSE
  19.       ENDIF
  20.       deleteExtIO(tr)
  21.     ENDIF
  22.     deletePort(port)
  23.   ENDIF
  24. ENDPROC error
  25.